home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / picticon / source / mod / lists.e < prev    next >
Text File  |  1995-12-22  |  418b  |  18 lines
  1. OPT MODULE
  2.  
  3. MODULE    'exec/nodes','exec/lists'
  4.  
  5. EXPORT PROC isfirst(node:PTR TO ln)
  6.     IF node.pred
  7.         IF node.pred.pred=0 THEN RETURN TRUE
  8.     ENDIF
  9. ENDPROC FALSE
  10.  
  11. EXPORT PROC islast(node:PTR TO ln)
  12.     IF node.succ
  13.         IF node.succ.succ=0 THEN RETURN TRUE
  14.     ENDIF
  15. ENDPROC FALSE
  16. EXPORT PROC ishead(node:PTR TO ln) IS IF (node.pred=0) THEN TRUE ELSE FALSE
  17. EXPORT PROC istail(node:PTR TO ln) IS IF (node.succ=0) THEN TRUE ELSE FALSE
  18.